home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / gfx / show / GS510_data.lha / ghostscript / 5.10 / pdf_draw.ps < prev    next >
Text File  |  1997-12-28  |  12KB  |  450 lines
  1. %    Copyright (C) 1994, 1995, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % pdf_draw.ps
  19. % PDF drawing operations (graphics, text, and images).
  20.  
  21. % We don't handle the following PDF elements yet (identified by
  22. % page number in the reference manual):
  23. %    style strings (63-64), except in a few known fonts
  24. %    font descriptor resources (71-75), except for MissingWidth
  25. %    text clipping modes (104)
  26. %        What do these mean??
  27.  
  28. % We handle the following PDF 1.2 constructs:
  29. %    gs operator (but not functions)
  30.  
  31. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  32. .currentglobal true .setglobal
  33. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  34. GS_PDF_ProcSet begin
  35. pdfdict begin
  36.  
  37. % For simplicity, we use a single interpretation dictionary for all
  38. % PDF graphics operations, even though this is too liberal.
  39. /drawopdict 100 dict def
  40.  
  41. % ================================ Graphics ================================ %
  42.  
  43. % ---------------- Functions ---------------- %
  44.  
  45. /resolvefunction {    % <fndict> resolvefunction <function>
  46.         % Don't lose our place in PDFfile.
  47.   PDFfile fileposition exch
  48.   dup true resolvestream
  49.         % The stream isn't positionable, so read all the data now.
  50.         % Note that we only support FunctionType 0.
  51.         % Stack: filepos fndict stream
  52.   1 index /Range get length 2 idiv 2 index /BitsPerSample get mul
  53.   2 index /Size get { mul } forall
  54.   7 add 8 idiv string
  55.   1 index exch readstring pop exch closefile
  56.         % Stack: filepos fndict data
  57.   exch dup length 1 add dict .copydict
  58.   dup /DataSource 4 -1 roll put
  59.   .buildfunction
  60.   exch PDFfile exch setfileposition
  61. } bdef
  62.  
  63. % ---------------- Graphics state management ---------------- %
  64.  
  65. drawopdict begin
  66.             % Graphics state stack
  67.   /q { q } def
  68.   /Q { Q } def
  69.             % Graphics state setting
  70.   /cm { cm } def
  71.   /i { i } def
  72.   /J { J } def
  73.   /d { d } def
  74.   /j { j } def
  75.   /w { w } def
  76.   /M { M } def
  77.   /gs { gs } def
  78. end
  79.  
  80. /gsparamdict mark
  81.   /Type { pop }
  82.   /SA { /setstrokeadjust 1 # }
  83.   /OP { /setoverprint 1 # }
  84.   /BG
  85.    { dup /Identity eq
  86.       { pop { } /setblackgeneration 1 #
  87.       }
  88.       {        %****** DUMMY ******
  89.     pop
  90.       }
  91.      ifelse
  92.    }
  93.   /UCR
  94.    { dup /Identity eq
  95.       { pop { } /setundercolorremoval 1 #
  96.       }
  97.       {        %****** DUMMY ******
  98.     pop
  99.       }
  100.      ifelse
  101.    }
  102.   /TR
  103.    { dup /Identity eq
  104.       { pop { } /settransfer 1 #
  105.       }
  106.       {        %****** DUMMY ******
  107.     pop
  108.       }
  109.      ifelse
  110.    }
  111.   /HT
  112.    { dup /Default eq
  113.       { pop /.setdefaultscreen 0 #
  114.       }
  115.       {        %****** DUMMY ******
  116.     pop
  117.       }
  118.      ifelse
  119.    }
  120.   /HTP { oget aload pop /sethalftonephase 2 # }
  121. .dicttomark readonly def
  122. /gs            % <gsres> gs -
  123.  { Page /ExtGState rget
  124.     {  { oforce exch gsparamdict exch .knownget { exec } { pop } ifelse }
  125.       forall
  126.     }
  127.    if
  128.  } bdef
  129.  
  130. % ---------------- Color setting ---------------- %
  131.  
  132. /csncompdict mark
  133.   /DeviceGray 1
  134.   /CalGray 1
  135.   /DeviceRGB 3
  136.   /CalRGB 3
  137.   /Lab 3
  138.   /DeviceCMYK 4
  139.   /CalCMYK 4
  140.   /Separation 1
  141. .dicttomark readonly def
  142.  
  143. /csrdict mark
  144.   /DeviceGray {
  145.     /DefaultGray Page /ColorSpace rget { exch pop } if
  146.   }
  147.   /CalGray { }
  148.   /DeviceRGB {
  149.     /DefaultRGB Page /ColorSpace rget { exch pop } if
  150.   }
  151.   /CalRGB { }
  152.   /Lab { }
  153.   /DeviceCMYK { }
  154.   /CalCMYK { }
  155.   /Indexed    %****** SHOULD RESOLVE BASE SPACE *****
  156.    { dup 3 oget dup type /stringtype eq
  157.       { pop
  158.       }
  159.       {        % The color lookup table is a stream.
  160.         % Get its contents.  Don't lose our place in PDFfile.
  161.     PDFfile fileposition 3 1 roll
  162.     true resolvestream
  163.     1 index 2 get 1 add
  164.     csncompdict 3 index 1 get
  165.       dup type /arraytype eq { 0 get } if get mul
  166.     string readstring pop
  167.         % Stack: cspace filepos table
  168.     1 index 3 3 -1 roll put
  169.     exch PDFfile exch setfileposition
  170.       }
  171.      ifelse
  172.    }
  173.   /Pattern
  174.    { dup type /nametype ne
  175.       { dup length 1 ge
  176.      { 1 get resolvecolorspace
  177.        /Pattern exch 2 array astore
  178.      }
  179.     if
  180.       }
  181.      if
  182.    }
  183.   /Separation    %****** SHOULD RESOLVE ALTERNATIVE SPACE ******
  184.    {        % Resolve the tintTransform function.
  185.      dup 3 oget resolvefunction
  186.      1 index 3 3 -1 roll put
  187.    }
  188. .dicttomark readonly def
  189.  
  190. /csgray            % <op> <csop> csgray -
  191.  { /DeviceGray resolvecolorspace
  192.    dup /DeviceGray eq { pop } { exch 3 -1 roll } ifelse
  193.    pop cvx exec
  194.  } bdef
  195. /csrgb            % <op> <csop> csrgb -
  196.  { /DeviceRGB resolvecolorspace
  197.    dup /DeviceRGB eq { pop } { exch 3 -1 roll } ifelse
  198.    pop cvx exec
  199.  } bdef
  200. /cscmyk            % <op> <csop> cscmyk -
  201.  { pop cvx exec
  202.  } bdef
  203. /csresolve        % <csresourcename> csresolve <cspace>
  204.  { dup Page /ColorSpace rget
  205.     { exch pop resolvecolorspace }
  206.     { /undefined cvx signalerror }
  207.    ifelse
  208.  } bdef
  209. /resolvecolorspace {    % <cspace> resolvecolorspace <cspace'>
  210.   dup dup type /arraytype eq { 0 get } if
  211.   //csrdict exch .knownget {
  212.     exec dup type /nametype ne { dup length 1 eq { 0 get } if } if
  213.   } {
  214.     csresolve
  215.   } ifelse
  216. } bdef
  217.  
  218. /cset        % <c0> ... [- <sc1> <sc2> <sc3> <sc4> <sc5>] cset -
  219.  {        % We can't really make sc[n] and SC[N] work, because
  220.         % the color space information isn't available at
  221.         % conversion time; so we hack it by assuming that
  222.         % all the operands on the stack are used, and that
  223.         % if the top operand is a name, it's a Pattern resource.
  224.    1 index type /nametype eq
  225.     { exch Page /Pattern rget { resolvepattern } { null } ifelse exch }
  226.    if
  227.    count 1 sub get exec
  228.  } bdef
  229. /resolvepattern        % <patternstreamdict> resolvepattern <patterndict>
  230.  {        % Don't do the resolvestream now: just capture the data
  231.         % from the file if necessary.
  232.    dup length dict copy
  233.    dup /FilePosition .knownget
  234.     { 1 index /File get dup fileposition 3 1 roll
  235.         % Stack: dict savepos pos file
  236.       dup 3 -1 roll setfileposition
  237.       dup 3 index /Length get string readstring pop
  238.         % Stack: dict savepos file string
  239.       3 1 roll exch setfileposition
  240.       1 index /File 3 -1 roll put
  241.       dup /FilePosition undef
  242.     }
  243.    if
  244.    dup /PaintProc
  245.     { false resolvestream pdfopdict .pdfrun
  246.     }
  247.    put
  248.  } bdef
  249.  
  250. drawopdict begin
  251.   /g { /g { cs sc1 } csgray } bdef
  252.   /rg { /rg { cs sc3 } csrgb } bdef
  253.   /k { /k { cs sc4 } cscmyk } bdef
  254.   /cs { csresolve cs } bdef
  255.   /sc { { null sc1 sc2 sc3 sc4 sc5 } cset } bdef
  256.   /scn /sc load def
  257.   /G { /G { CS SC1 } csgray } bdef
  258.   /RG { /RG { CS SC3 } csrgb } bdef
  259.   /K { /K { CS SC4 } cscmyk } bdef
  260.   /CS { csresolve CS } bdef
  261.   /SC { { null SC1 SC2 SC3 SC4 SC5 } cset } bdef
  262.   /SCN /SC load def
  263. end
  264.  
  265. % ---------------- Paths ---------------- %
  266.  
  267. drawopdict begin
  268.             % Path construction
  269.   /m { m } def
  270.   /l { l } def
  271.   /c { c } def
  272.   /v { v } def
  273.   /y { y } def
  274.   /re { re } def
  275.   /h { h } def
  276.             % Path painting and clipping
  277.   /n { n } def
  278.   /S { S } def
  279.   /s { s } def
  280.   /f { f } def
  281.   /f* { f* } def
  282.   /B { B } def
  283.   /b { b } def
  284.   /B* { B* } def
  285.   /b* { b* } def
  286.   /W { W } def
  287.   /W* { W* } def
  288. end
  289.  
  290. % ---------------- XObjects ---------------- %
  291.  
  292. /xobjectprocs mark        % <dict> -proc- -
  293.   /Image { DoImage }
  294.   /Form { DoForm }
  295. .dicttomark readonly def
  296.  
  297. /defaultdecodedict mark
  298.   /DeviceGray [0 1] readonly
  299.   /CalGray 1 index
  300.   /DeviceRGB [0 1 0 1 0 1] readonly
  301.   /CalRGB 1 index
  302.   /Lab
  303.    { 0 100 2 index 1 get /Range .knownget not { {-100 100 -100 100} } if
  304.      aload pop 6 array astore readonly
  305.    } bind
  306.   /DeviceCMYK [0 1 0 1 0 1 0 1] readonly
  307.   /CalCMYK 1 index
  308.   /Separation [0 1] readonly
  309. .dicttomark readonly def
  310.  
  311. /DoImage
  312.  { dup length dict
  313.    1 index /ColorSpace knownoget
  314.     { resolvecolorspace
  315.       dup type /arraytype eq { dup length 1 eq { 0 get } if } if
  316.       exch begin /ColorSpace exch